;redcode-94
;name f4
;author Flox

	ORG	start
start	CMP	core,	bomb
	MOV	bomb,	@-1
	ADD	#8,	-2
	SLT	start,	#10
	JMP	start,	0
	JMP	date,	0
core	DAT	0,	0
bomb	SPL	0,	<-1
date	MOV	core,	core
	SLT	#4,	-1
	SUB	#5,	-2
	JMP	date,	<date
